#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
## Copy@right Alisam Technology see License.txt

##############################################################################################
##############################################################################################
##
our(@c);
print "\n"
."$c[10]"." " x 30 ."=[$c[13] INTER$c[5]AVTIVE$c[13] ($c[11]oo$c[13]) $c[11]Interface"." " x 1 ."]\n"
."$c[10]"." " x 10 ."ooooo:::=============[$c[14] 2 $c[11] Modes"." " x 19 ."]\n"
."$c[10]"." " x 10 ."ooooo:::=============[$c[14] 18 $c[11]Modules" ." " x 17 ."]\n";
ltak();
print "\n";

# SEPARATOR LINE
sub helpSeparator {
  print "$c[10]+============================================================================\n";
}
##############################################################################################

1;
